home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / file transfer (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  761b  |  19 lines
  1. 90 REM *** CP/M-C64 DOWNLOAD ***
  2. 100 GOTO 210:REM INITIALIZE
  3. 110 GET#2,A$:IF A$="" THEN 110:REM GETS A CHATACTER FROM BUFFER-WON'T TAKE NULLS
  4. 120 IF A$="G" THEN PRINT"FILE ENDS AT";AD:CLOSE":END:REM G IS OF SIGNAL
  5. 130 T%[178][198](A$):[143] GETS ASCII CODE
  6. 140 [153]A$;:[151] AD,T%:AD[178]AD[170]1:[143] POKES   MEMORY AND INCREMENTS ADDRESS
  7. 150 SR[178]ST:[139]SR[178]0 [167] 110:[143] ERROR     CHECKING-IF OK GOES BACK TO 110
  8. 160 [153]"ERROR"
  9. 170 [139] SR [175] 1 [167] [153]"PARITY"
  10. 180 [139] SR [175] 2 [167] [153]"FRAME"
  11. 190 [139] SR [175] 4 [167] [153]"RECEIVER BUFFER FULL"
  12. 200 [139] SR [175] 128 [167] [153]"BREAK"
  13. 210 [159] 2,2,3,[199](38)[170][199](176):[143]  3LINE, MARK PARITY, I STOP BIT, 300 BAUD
  14. 220 AD[178]9216:[143] THIS IS WHERE PROGRAM STARTS IN MEMORY-$1400 FOR CP/M
  15. 230 [161] #2,A$:[143] TURNS ON RS232
  16. 240 [153]"PRESS RETURN WHEN READY"
  17. 250 [161] A$:[139] A$[179][177][199](13) [167] 250: [143] WAITS FOR RETURN
  18. 260 [153]"LOADREADY TO RECEIVE DATA":[137] 110
  19.